home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / BAS / Graphism / Chaos / data1.cab / Beispieldateien / Formulas / Fractint.frm next >
Text File  |  2000-10-04  |  633b  |  34 lines
  1.  
  2. Mandelbrot {; Mark Peterson
  3.   ; Classical fractal
  4.   z = Pixel:
  5.    z = z^2 + Pixel
  6.     abs(z) <= 4
  7.   }
  8.  
  9. Wineglass {; Pieter Branderhorst
  10.   c = pixel, z=pixel:
  11.    z = z * z + c
  12.    c = (1+flip(imag(c))) * real(c) / 2 + z
  13.     |z| <= 4
  14.   }
  15.  
  16. LeeMandel2 {; Kevin Lee
  17.   z=Pixel:
  18.    c=sqr(pixel)/z, c=z+c, z=sqr(c*pixel)
  19.     |z|<4
  20.    }
  21.  
  22. Richard1 (XYAXIS) {; Jm Collard-Richard
  23.   z = pixel:
  24.    sq=z*z, z=(sq*sin(sq)+sq)+pixel
  25.     |z|<=50
  26.   }
  27.  
  28. contest4  {; Kerry Mitchell
  29.       ; slightly optimized version of Contest formula
  30.          z=p1, c=pixel:
  31.          z2=sqr(z), z=z*z2+c*(1+z-z2), |z| <= 4
  32.          }
  33.  
  34.